inherited crdTariff: TcrdTariff
  Left = 646
  Top = 212
  VertScrollBar.Range = 0
  AutoSize = True
  BorderIcons = [biSystemMenu, biMinimize, biMaximize, biHelp]
  BorderStyle = bsDialog
  Caption = #1044#1086#1073#1072#1074#1083#1077#1085#1080#1077'/'#1080#1079#1084#1077#1085#1077#1085#1080#1077' '#1090#1072#1088#1080#1092#1086#1074
  ClientHeight = 233
  ClientWidth = 342
  Constraints.MinHeight = 200
  Constraints.MinWidth = 350
  OldCreateOrder = True
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    Top = 206
    Width = 342
    Align = alTop
    TabOrder = 4
    DesignSize = (
      342
      27)
    inherited BitBtn1: TBitBtn
      Left = 141
    end
    inherited BitBtn2: TBitBtn
      Left = 243
    end
  end
  inherited ToolBar1: TToolBar
    Width = 342
    Height = 25
    EdgeBorders = [ebTop, ebBottom]
    TabOrder = 3
    inherited ToolButton2: TToolButton
      Visible = False
    end
  end
  object Panel2: TPanel [2]
    Left = 0
    Top = 75
    Width = 342
    Height = 26
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 1
    object Label1: TLabel
      Left = 49
      Top = 8
      Width = 114
      Height = 13
      Alignment = taRightJustify
      Caption = #1044#1072#1090#1072' '#1085#1072#1095#1072#1083#1072' '#1076#1077#1081#1089#1090#1074#1080#1103
    end
    object dtpBDate: TDBDateTimeEditEh
      Left = 172
      Top = 5
      Width = 95
      Height = 19
      AlwaysShowBorder = True
      EditButtons = <>
      Flat = True
      Kind = dtkDateEh
      TabOrder = 0
      Visible = True
    end
  end
  object pInfo: TPanel [3]
    Left = 0
    Top = 25
    Width = 342
    Height = 50
    Align = alTop
    BevelInner = bvRaised
    BevelOuter = bvLowered
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 0
    object Label10: TLabel
      Left = 7
      Top = 8
      Width = 47
      Height = 13
      Caption = #1059#1089#1083#1091#1075#1072':'
    end
    object lSrvName: TLabel
      Left = 82
      Top = 8
      Width = 254
      Height = 13
      AutoSize = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label11: TLabel
      Left = 7
      Top = 28
      Width = 72
      Height = 13
      Caption = #1055#1086#1089#1090#1072#1074#1097#1080#1082':'
    end
    object lSuppName: TLabel
      Left = 82
      Top = 28
      Width = 254
      Height = 13
      AutoSize = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
  end
  object GroupBox2: TGroupBox [4]
    Left = 0
    Top = 101
    Width = 342
    Height = 105
    Align = alTop
    Caption = ' '#1058#1072#1088#1080#1092#1099' '#1079#1072' '#1077#1076#1080#1085#1080#1094#1091' '#1091#1089#1083#1091#1075#1080' '
    TabOrder = 2
    object Label5: TLabel
      Left = 52
      Top = 23
      Width = 111
      Height = 13
      Alignment = taRightJustify
      Caption = #1074' '#1087#1088#1077#1076#1077#1083#1072#1093' '#1089#1086#1094#1085#1086#1088#1084#1099
    end
    object Label6: TLabel
      Left = 74
      Top = 47
      Width = 89
      Height = 13
      Alignment = taRightJustify
      Caption = #1089#1074#1099#1096#1077' '#1089#1086#1094#1085#1086#1088#1084#1099
    end
    object Label7: TLabel
      Left = 65
      Top = 72
      Width = 98
      Height = 13
      Alignment = taRightJustify
      Caption = #1089#1074#1099#1096#1077' '#1089#1086#1094#1085#1086#1088#1084#1099' 2'
    end
    object DBEditEh4: TDBEditEh
      Left = 172
      Top = 20
      Width = 95
      Height = 19
      AlwaysShowBorder = True
      DataField = 'TARIFF'
      DataSource = dscTariff0M
      EditButtons = <>
      Flat = True
      TabOrder = 0
      Visible = True
    end
    object DBEditEh5: TDBEditEh
      Left = 172
      Top = 44
      Width = 95
      Height = 19
      AlwaysShowBorder = True
      DataField = 'TARIFF'
      DataSource = dscTariff1M
      EditButtons = <>
      Flat = True
      TabOrder = 1
      Visible = True
    end
    object DBEditEh6: TDBEditEh
      Left = 172
      Top = 68
      Width = 95
      Height = 19
      AlwaysShowBorder = True
      DataField = 'TARIFF'
      DataSource = dscTariff2M
      EditButtons = <>
      Flat = True
      TabOrder = 2
      Visible = True
    end
  end
  inherited ActionList1: TActionList
    Left = 24
    Top = 152
    inherited aSave: TAction
      OnExecute = aSaveExecute
    end
    inherited aCancel: TAction
      OnExecute = aCancelExecute
    end
  end
  inherited PropStorage: TPropStorageEh
    Section = 'crdTariff'
    StoredProps.Strings = (
      '<P>.Left'
      '<P>.Top')
  end
  object trTariffs: TpFIBTransaction
    DefaultDatabase = MAINDM.pMainDatabase
    TimeoutAction = TARollback
    Left = 28
    Top = 212
  end
  object dsTariff0M: TpFIBDataSet
    UpdateSQL.Strings = (
      'UPDATE RTARIFFS'
      'SET '
      '    TARIFF = :TARIFF'
      'WHERE'
      '    ID = :OLD_ID'
      '    ')
    InsertSQL.Strings = (
      'INSERT INTO RTARIFFS('
      '    SERVICE_ID,'
      '    SUPPLIER_ID,'
      '    TARIFF,'
      '    BDATE,'
      '    SEQ'
      ')'
      'VALUES('
      '    :SERVICE_ID,'
      '    :SUPPLIER_ID,'
      '    :TARIFF,'
      '    :BDATE,'
      '    1'
      ')')
    RefreshSQL.Strings = (
      '')
    SelectSQL.Strings = (
      'select rt.*'
      'from rtariffs rt'
      'where rt.service_id = :service_id'
      'and rt.supplier_id = :supplier_id'
      'and rt.bdate = :bdate'
      'and rt.seq = 1')
    Transaction = trTariffs
    Database = MAINDM.pMainDatabase
    Left = 268
    Top = 144
    object dsTariff0MID: TFIBIntegerField
      FieldName = 'ID'
    end
    object dsTariff0MSERVICE_ID: TFIBIntegerField
      FieldName = 'SERVICE_ID'
    end
    object dsTariff0MSUPPLIER_ID: TFIBIntegerField
      FieldName = 'SUPPLIER_ID'
    end
    object dsTariff0MTARIFF: TFIBBCDField
      FieldName = 'TARIFF'
      Size = 2
      RoundByScale = True
    end
    object dsTariff0MBDATE: TFIBDateField
      FieldName = 'BDATE'
    end
    object dsTariff0MSEQ: TFIBSmallIntField
      FieldName = 'SEQ'
    end
  end
  object dscTariff0M: TDataSource
    DataSet = dsTariff0M
    Left = 348
    Top = 144
  end
  object dsTariff1M: TpFIBDataSet
    UpdateSQL.Strings = (
      'UPDATE RTARIFFS'
      'SET '
      ' TARIFF = :TARIFF'
      'WHERE'
      '    ID = :OLD_ID'
      '    ')
    InsertSQL.Strings = (
      'update or INSERT INTO RTARIFFS('
      '    SERVICE_ID,'
      '    SUPPLIER_ID,'
      '    TARIFF,'
      '    BDATE,'
      '    SEQ'
      ')'
      'VALUES('
      '    :SERVICE_ID,'
      '    :SUPPLIER_ID,'
      '    :TARIFF,'
      '    :BDATE,'
      '    2'
      ')'
      'matching (SERVICE_ID,'
      '    SUPPLIER_ID,'
      '    BDATE,'
      '    SEQ)')
    RefreshSQL.Strings = (
      '')
    SelectSQL.Strings = (
      'select rt.*'
      'from rtariffs rt'
      'where rt.service_id = :service_id'
      'and rt.supplier_id = :supplier_id'
      'and rt.bdate = :bdate'
      'and rt.seq = 2')
    Transaction = trTariffs
    Database = MAINDM.pMainDatabase
    Left = 268
    Top = 192
    object dsTariff1MID: TFIBIntegerField
      FieldName = 'ID'
    end
    object dsTariff1MSERVICE_ID: TFIBIntegerField
      FieldName = 'SERVICE_ID'
    end
    object dsTariff1MSUPPLIER_ID: TFIBIntegerField
      FieldName = 'SUPPLIER_ID'
    end
    object dsTariff1MTARIFF: TFIBBCDField
      FieldName = 'TARIFF'
      Size = 2
      RoundByScale = True
    end
    object dsTariff1MBDATE: TFIBDateField
      FieldName = 'BDATE'
    end
    object dsTariff1MSEQ: TFIBSmallIntField
      FieldName = 'SEQ'
    end
  end
  object dscTariff1M: TDataSource
    DataSet = dsTariff1M
    Left = 348
    Top = 192
  end
  object dsTariff2M: TpFIBDataSet
    UpdateSQL.Strings = (
      'UPDATE RTARIFFS'
      'SET '
      '    TARIFF = :TARIFF'
      'WHERE'
      '    ID = :OLD_ID'
      '    ')
    InsertSQL.Strings = (
      'INSERT INTO RTARIFFS('
      '    SERVICE_ID,'
      '    SUPPLIER_ID,'
      '    TARIFF,'
      '    BDATE,'
      '    SEQ'
      ')'
      'VALUES('
      '    :SERVICE_ID,'
      '    :SUPPLIER_ID,'
      '    :TARIFF,'
      '    :BDATE,'
      '    3'
      ')')
    RefreshSQL.Strings = (
      '')
    SelectSQL.Strings = (
      'select rt.*'
      'from rtariffs rt'
      'where rt.service_id = :service_id'
      'and rt.supplier_id = :supplier_id'
      'and rt.bdate = :bdate'
      'and rt.seq = 3')
    Transaction = trTariffs
    Database = MAINDM.pMainDatabase
    Left = 268
    Top = 240
    object dsTariff2MID: TFIBIntegerField
      FieldName = 'ID'
    end
    object dsTariff2MSERVICE_ID: TFIBIntegerField
      FieldName = 'SERVICE_ID'
    end
    object dsTariff2MSUPPLIER_ID: TFIBIntegerField
      FieldName = 'SUPPLIER_ID'
    end
    object dsTariff2MTARIFF: TFIBBCDField
      FieldName = 'TARIFF'
      Size = 2
      RoundByScale = True
    end
    object dsTariff2MBDATE: TFIBDateField
      FieldName = 'BDATE'
    end
    object dsTariff2MSEQ: TFIBSmallIntField
      FieldName = 'SEQ'
    end
  end
  object dscTariff2M: TDataSource
    DataSet = dsTariff2M
    Left = 348
    Top = 240
  end
end
